home *** CD-ROM | disk | FTP | other *** search
/ PC for Alla 2005 April / PC för Alla 0504.iso / noje / arcade-3.6.exe / tetris.swf / scripts / DefineSprite_2 / frame_7 / DoAction.as
Encoding:
Text File  |  2003-11-29  |  315 b   |  21 lines
  1. x = Number(_parent._name) - y;
  2. with(_root)
  3. {
  4.    var j = y;
  5.    while(j > 0)
  6.    {
  7.       drawBlock(flag_array[x + j] = flag_array[x + j - 10],x + j);
  8.       j -= 10;
  9.    }
  10.    if(!x)
  11.    {
  12.       simult--;
  13.    }
  14.    if(!simult)
  15.    {
  16.       drawNextShape();
  17.       drawThisShape();
  18.       startFall();
  19.    }
  20. }
  21.